home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _NODSHAK.PRG < prev    next >
Text File  |  1993-05-04  |  2KB  |  77 lines
  1. *' $Header:   E:/test/sysproc/doc/_nodshak.prv   1.4   27 Apr 1993 10:05:46   Bill Ramos  $
  2. FUNCTION _NodShake
  3. PARAMETERS pc_msg
  4. *---------------------------------------------------------------------------
  5. * NAME
  6. *   _NodShake
  7. *
  8. * DESCRIPTION
  9. *   Accepts a YES/NO response from user.  Returns .T. for YES and
  10. *   .F. for NO.  Includes Help button.  If gc_HSave is defined as
  11. *   a char type, then help is available.
  12. *
  13. * PARAMETERS
  14. *   pc_mssg = Dialog box message.  Up to two lines of text.  Use
  15. *             semi-colon to force line break.  Without the semi-colon
  16. *             lines will break at the last word that fits within
  17. *             55 characters
  18. *       
  19. *---------------------------------------------------------------------------
  20.   DECLARE NODSHAKE[ 3 ]
  21.     *-- BT_OK -   ~Yes
  22.     NODSHAKE[ 1 ]    = .T.
  23.  
  24.     *-- BT_CANCEL -    ~No
  25.     NODSHAKE[ 2 ]    = .F.
  26.  
  27.     *-- BT_UHELP -   ~Help
  28.     NODSHAKE[ 3 ]    = .F.
  29.  
  30.   FXL_Cancel = .F.
  31.   FXL_NoChng = .F.
  32.  
  33.   nSemiColon = AT( ";", pc_msg )
  34.   IF nSemiColon > 0
  35.     Err_Msg1 = LEFT( pc_msg, nSemiColon - 1 )
  36.     Err_Msg2 = SUBSTR( pc_msg, nSemiColon + 1 )
  37.   ELSE
  38.     IF LEN( pc_msg ) > 55
  39.       cLine1 = LEFT( pc_msg, 55 )
  40.       nLastSpace = RAT( " ", cLine1 )
  41.       IF nLastSpace = 0
  42.         Err_Msg1 = LEFT( pc_msg, 55 )
  43.         Err_Msg2 = SUBSTR( pc_msg, 56 )
  44.       ELSE
  45.         Err_Msg1 = TRIM( LEFT( cLine1, nLastSpace - 1 ) )
  46.         Err_Msg2 = SUBSTR( cLine1, nLastSpace + 1 ) + SUBSTR( pc_msg, 56 )
  47.       ENDIF
  48.     ELSE
  49.       Err_Msg1 = pc_Msg
  50.       Err_Msg2 = ""
  51.     ENDIF
  52.   ENDIF
  53.  
  54.   Err_Msg1 = HelpCTit( TRIM( Err_Msg1 ), 55 )
  55.   IF .NOT. ISBLANK( Err_Msg2 )
  56.     Err_Msg2 = HelpCTit( TRIM( Err_Msg2 ), 55 )
  57.   ENDIF
  58.  
  59.   *----------------------
  60.   *-- Call the Dialog box
  61.   *----------------------
  62.   DO NodShake
  63.  
  64.   IF FXL_Cancel
  65.     ll_ans = .F.
  66.   ELSE
  67.     ll_ans = .T.
  68.   ENDIF
  69.  
  70. RETURN ll_ans
  71. *'-------------------------------------------------------------------------
  72. *' $Log:   E:/test/sysproc/doc/_nodshak.prv  $
  73. *'-------------------------------------------------------------------------
  74.  
  75.  
  76.  
  77.